home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 November / 1989-11.d64 / turbo convert (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  936b  |  31 lines
  1. 10 rem copyright 1989 compute! publications, inc. -- all rights reserved
  2. 20 print"[147][194]uilding [212]urbo [198]ormat...[208]lease [215]ait"
  3. 30 print""tab(13)"[195]opyright 1989"
  4. 40 printtab(7)"[195][207][205][208][213][212][197]! [208]ublications, [201]nc.":printtab(10)"[193]ll rights reserved."
  5. 50 open15,8,15:open2,8,2,"0:turbo format,p,r"
  6. 60 input#15,a$,b$,c$,d$:ifval(a$)>0thenprinta$,b$,c$,d$:close2,15:end
  7. 70 print#15,"m-r"chr$(24)chr$(0)chr$(2)
  8. 80 get#15,t$:t=asc(t$+chr$(0))
  9. 90 get#15,s$:s=asc(s$+chr$(0))
  10. 100 print#15,"m-r"chr$(97)chr$(2)
  11. 110 get#15,d$:d=asc(d$+chr$(0))
  12. 120 print#15,"m-r"chr$(103)chr$(2)
  13. 130 get#15,i$:i=asc(i$+chr$(0))
  14. 140 open3,8,3,"#"
  15. 150 print#15,"u1";3;0;t;s
  16. 160 get#3,tp$:tp=asc(tp$+chr$(0))
  17. 170 get#3,sp$:sp=asc(sp$+chr$(0))
  18. 180 print#15,"b-p";3;0
  19. 190 print#3,chr$(0);chr$(255);
  20. 200 print#15,"u2";3;0;t;s:close2:close3
  21. 210 open2,8,2,"#"
  22. 220 print#15,"u1";2;0;18;d
  23. 230 print#15,"b-p";2;i
  24. 240 print#2,chr$(131);chr$(tp);chr$(sp);chr$(71);chr$(101);chr$(111);chr$(115);
  25. 250 print#2,chr$(84);chr$(117);chr$(114);chr$(98);chr$(111);chr$(70);chr$(111);
  26. 260 print#2,chr$(114);chr$(109);chr$(97);chr$(116);
  27. 270 print#15,"b-p";2;i+19
  28. 280 print#2,chr$(t);chr$(s);chr$(0);chr$(6);
  29. 290 print#15,"u2";2;0;18;d
  30. 300 close2:close3:close15
  31.